SHEET (1) 



Module Modulel 
Sub Main() 

Dim Type, Hours, Abs As Integer 
Dim Salary, AbPercent As Single 

XXX: 

Console .Writel_ine( "Enter the worker type") 
Type = Console. Readl_ine( ) 
Console .Writel_ine( "Enter the work hours") 
Hours = Console. Readl_ine( ) 

Console .Writel_ine( "Enter the worker's absence days") 
Abs = Console . Readl_ine( ) 

If Abs > 1 And Abs <= 5 Then AbPercent = 0.95 
If Abs > 5 And Abs <= 10 Then AbPercent = 0.93 
If Abs > 10 Then AbPercent = 0.9 
Select Case Type 
Case 1 

Salary = Hours * 30 * AbPercent + 100 
Case 2 

Salary = Hours * 40 * AbPercent + 200 
Case 3 

Salary = Hours * 50 * AbPercent + 300 
Case Else 

Console. Write Line( "Wrong Type" ) 
GoTo XXX 
End Select 

Console .Writel_ine( "The Worker's Salary " & Salary) 
Console . Read Line () 
End Sub 
End Module 



SHEET (2) 



Module Modulel 
Sub MainQ 

Dim ij j As Integer 
Dim Spc As String 
Spc = " " 

For i = 9 To 1 Step -1 
For j = 1 To i 

Console. Write("*") 

Next 

Console .Writ eLine( ) 
Console .Write (Spc) 
Spc = Spc + " " 

Next 
End Sub 
End Module 



SHEET (3) 



Module Modulel 
Sub Main() 

Dim Num., Max, i As Integer 
Max = 

For i = 1 To 100 

Num = InputBox("Enter the " & i & '"s Number") 
If Num > Max And Num Mod 5=0 Then Max = Num 

Next 

Console .Writel_ine( "The Maximum Number is " & Max) 
Console . Read Line () 
End Sub 
End Module 



SHEET (4) 



Module Modulel 
Sub Main() 

Dim A(10, 10), i, j, Max As Integer 
Max = A(0, 0) 
For i = To 9 

For j = To 9 

A(i, j) = InputBox("Enter Element") 

Next 

Next 

For i = To 9 

If A(i, i) > Max And A(i, i) Mod 2 = Then Max 

= A(i, i) 

Next 

Console .WriteLine( "The Maximum Number is " & Max) 
Console . Read Line () 
End Sub 
End Module 



SHEET 5 



Module Modulel 

Sub MainQ 

Dim X, Yj M As Integer 

Dim Res As Double 

X = InputBox("Enter X") 

Y = InputBox("Enter Y") 

M = InputBox("Enter M") 

Res = Result(X, Y, M) 

MsgBox("The Result is " & Res) 

End Sub 

Function Result(ByVal X As Integer, 
ByVal Y As Integer, 
ByVal M As Integer) 

Dim Res As Double 

Res = ((X + Y) A 3 - M) A 0.5 

Return (Res) 
End Function 
End Module 



